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Exercicel (2 pts) : 

a. Traduire I'expression suivante en langage Pascal : 


V = x 


2 



b. Definir les operateurs DIV et MOD en donnant un exemple numerique pour 
chacun. 


Exercice2 (10 pts) : 


Soit I'algorithme suivant : 

1. Faire le deroulement (lexecution) de 

Algo exo2 

I'algorithme donne pour N= 3, X=2 et 

Var X, T, S : reel 

deduire la valeur de S. 

I, N : entier 

2. Deduire I'expression generale calculee par 

Debut 

I'algorithme en fonction de X et N. 

Lire (N, X) 


S<- 0 

3. Reecrire I'algorithme en remplagant la 

TV- 1 

boucle Tant que par la boucle Pour. 

I- 1 


Tant que I< N Faire 

4. Traduire I'algorithme donne en programme 

T<— T * X*X 

pascal. 

S<- S+ T/ I 


I— 1+ 1 



FinTQ 

Ecrire(S) 

FIN. 

Exercice3 (8 pts) 

Soit A une matrice d'ordre (NxM) de nombres entiers et V un vecteur de N elements. 
Faire un programme qui permet de : 

1. lire la matrice A et le vecteur V; 

2. calculer la moyenne de tous les elements de la matrice A ; 

3. calculer le nombre des elements de la matrice qui sont superieurs a la 
moyenne ; 

4. construire un vecteur VI constitue des elements du vecteur V dont le rang (la 
position) est pair ; 

5. diviser le vecteur V par son Kieme element, avec K donne. 


BONNE CHANCE 
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Corrige 

Examen d'informatique (Algorithmique) 


Exercice 1 (2 pts) : 

a. Y := sqr(x)-(sqr(x)*x )/(2-sqr(x))*sqrt(exp(x)/abs(5*x)) 

Ou y := x*x-(x*x*x)/(2-x*x)*sqrt(exp(x)/abs(5*x)) 

b. Div_: permet d’obtenir une division entiere (ou la partie entiere d’une division) 
Mod : permet d’obtenir le reste de la division. 

Exemples : 7 div 2= 3 
7 mod 2= 1 

Exercice 2 (10 pts) : 

1. Deroulement de l’algorithme : 


N 

X 

I 

T 

S 

3 

2 

1 

1 

0 



1 

1*2*2 

0 + 4/ 1=4 



2 

4*2*2 

4+ 16/ 2= 12 



3 

16*2*2 

12+ 64/3=33.33 



4>N 




La valeur de S = 33.33 


2. L’ expression de S en fonction de X et N : S= X 2 /l + X 4 /2+ X 6 / 3 + X ?n /N 

3. L'ecriture du programme en utilisant la boucle pour 

4. Program EX02; 


Algo EX02 

Var X, T, S : real ; 


I, N : integer ; 

Var X, T, S : reel 

begin 

I, N : entier 

read (N, X) ; 

Debut 

S := 0; T:= 1 ;I :=3 

Lire (N, X) 


S<- 0 

While I<= N do 

T<— 1 

begin 

Pour i allant de 1 a N faire 

T :=T * X*X ; 

T<— T * X*X 

S := S+ T/ I ; 

S*- S+ T/ I 

I :=I+1 ; 

Finpour 

End; 

Ecrire(S) 

write(S) ; 

FIN. 

end. 


Exercice 3 (8 pts) : 

Program calcul; 

Var A : array [1..5, 1..5] of integer; 

V : array[1..6] of real; 

L,j,n,m cp,l,k,s,x : Integer; 

Moy : real; 

Begin 

Read(n,m); 

{**** la lecture de la matrice ******} 

Write (‘donner les elements de la matrice’) ; 

For i := 1 to n do 
For j := 1 to m do 
Read(A[i,j]) ; 

{**** la lecture du vecteur V *****} 

Write (‘donner les elements du vecteur’) ; 

For i:=l to n do 
read(V[i]); 

{***** Calcul de la moyenne *****} 

S :=0 ; 

For i:= 1 to n do 

For J:= 1 to M do 
S:= S+ A[i,j]; 

Moy:= S/ (n*m); 

Write('La moyenne est moy); 

******* Calcul du nombre d’element > moy****} 
Cp:=0; 

For i:=l to n do 
For j:= 1 to m do 

If A[I,j] >moy then 
Cp:=cp+1; 

Write(‘ cp=’,cp); 

{** Construction des vecteurs V2***} 

L := 0 ; 

For i:= 1 to n do 
If I mod 2 =0 then 
begin 
L:= L+l; 

V2[L]:=V[i]; 

End; 

For i:= 1 to L do write(V2[i]); 


****** la division sur le Kieme element****} 



Write(‘introduire K’) ; 

Read(K) ; 

If (K <1) or (K> n) or( V[K ]=0 ) then write(‘la valeur de K est incorrecte’) 
Else begin 
X :=V[K] ; 

For i := 1 to n do 
V[i] := V[i] /x ; 

For i := 1 to n do 
Write(v[i]) ; 

End ; 

End. 



